<script>on mouseUpvisual effect push rightgo cd "index"end mouseUpon mouseWithinballoon "Go To Index"&return&return&¬"Click on this button to go to the Index Card.",12,8,2end mouseWithin</script>
</part>
<part>
<id>2</id>
<type>button</type>
<visible> <true /> </visible>
<reserved5> 0 </reserved5>
<reserved4> 0 </reserved4>
<reserved3> 0 </reserved3>
<reserved2> 0 </reserved2>
<reserved1> 0 </reserved1>
<enabled> <true /> </enabled>
<rect>
<left>482</left>
<top>0</top>
<right>508</right>
<bottom>20</bottom>
</rect>
<style>transparent</style>
<showName> <false /> </showName>
<highlight> <false /> </highlight>
<autoHighlight> <true /> </autoHighlight>
<sharedHighlight> <true /> </sharedHighlight>
<family>0</family>
<titleWidth>0</titleWidth>
<icon>4244</icon>
<textAlign>center</textAlign>
<font>Futura</font>
<textSize>12</textSize>
<textStyle>plain</textStyle>
<name>Return</name>
<script>on mouseUpvisual barn door opengo recent cardend mouseUpon mouseWithinballoon "Go To Recent Document"&return&return&¬"Click on this button to view the last document you were viewing before arriving at the current document.",12,8,2end mouseWithin</script>
</part>
<part>
<id>3</id>
<type>button</type>
<visible> <true /> </visible>
<reserved5> 0 </reserved5>
<reserved4> 0 </reserved4>
<reserved3> 0 </reserved3>
<reserved2> 0 </reserved2>
<reserved1> 0 </reserved1>
<enabled> <true /> </enabled>
<rect>
<left>433</left>
<top>0</top>
<right>457</right>
<bottom>19</bottom>
</rect>
<style>transparent</style>
<showName> <false /> </showName>
<highlight> <false /> </highlight>
<autoHighlight> <true /> </autoHighlight>
<sharedHighlight> <true /> </sharedHighlight>
<family>0</family>
<titleWidth>0</titleWidth>
<icon>4241</icon>
<textAlign>center</textAlign>
<font>Futura</font>
<textSize>12</textSize>
<textStyle>plain</textStyle>
<name>help</name>
<script>on mouseUpHTMLHelp "Contents"end mouseUpon mouseWithinballoon "Help Button"&return&return&¬"Click here for help on using HTML.edit and the HyperText Markup Language.",12,8,2end mouseWithin</script>
</part>
<name>utility</name>
<script>on openbackgroundif there is a menuItem "Import Document…" in menu "File" thendisable menuItem 3 of menu "File"disable menuItem 4 of menu "File"disable menuItem "Delete Document" of menu "Edit"disable menuItem 3 of menu "Windows"end ifshowFreepass openbackgroundend openbackgroundon showFreeput "" into cd fld "freeSize"put the freeSize of this stack&"K/"&the size of this stack&"K ["&¬trunc(the freeSize of this stack/the size of this stack * 100)&"%]" into cd fld "freeSize"end showFreeon zoomDocumentlock screenget (width of cd window) - 2if it < 478 then get 478set the loc of bg btn id 1 to it-40,10set the loc of bg btn id 2 to it-15,10set the loc of bg btn id 3 to it-65,9unlock screenend zoomDocumenton newDocumentif number(this cd) = 1 thenget (word 2 of the selectedLine of cd fld "index" of cd "index")if it ≥ number(cds in bg "editor") then go last cd of bg "Editor"else go cd (it+1)send "doMenu"&"e&"New Card""e to this cdelsego last cd of bg "Editor"doMenu "New Card"end ifunlock screenend newDocumenton doMenu iif i = "New Background" then beepelse pass doMenuend doMenu</script>